home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act4 / 00968.ls < prev    next >
Encoding:
Text File  |  1995-04-05  |  1006 b   |  40 lines
  1. on sinfo mchan
  2.   set stuff to []
  3.   add(stuff, the type of sprite mchan)
  4.   add(stuff, the castNum of sprite mchan)
  5.   add(stuff, the locH of sprite mchan)
  6.   add(stuff, the locV of sprite mchan)
  7.   add(stuff, the ink of sprite mchan)
  8.   add(stuff, the stretch of sprite mchan)
  9.   return stuff
  10. end
  11.  
  12. on sactivate mchan, stuff
  13.   if not listp(stuff) then
  14.     exit
  15.   end if
  16.   set the type of sprite mchan to getAt(stuff, 1)
  17.   set the castNum of sprite mchan to getAt(stuff, 2)
  18.   set the locH of sprite mchan to getAt(stuff, 3)
  19.   set the locV of sprite mchan to getAt(stuff, 4)
  20.   set the ink of sprite mchan to getAt(stuff, 5)
  21.   set the stretch of sprite mchan to getAt(stuff, 6)
  22. end
  23.  
  24. on storecans
  25.   global canstorage
  26.   set canstorage to []
  27.   repeat with xxx = 38 to 47
  28.     if the castNum of sprite xxx > 0 then
  29.       add(canstorage, sinfo(xxx))
  30.     end if
  31.   end repeat
  32. end
  33.  
  34. on restorecans
  35.   global canstorage
  36.   repeat with xxx = 1 to count(canstorage)
  37.     sactivate(xxx + 37, getAt(canstorage, xxx))
  38.   end repeat
  39. end
  40.